home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / bslmrgs1.zip / R-PCMAIL.MRG < prev    next >
Text File  |  1992-07-03  |  1KB  |  30 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce R-PCMAIL.BAS
  3. * This merge is brought to you by BusiLink Net and 1 cup
  4. * of Celebes Kalosi.
  5. * RBBS-PC.BAS:  Date 4-25-1992  Size 174544 bytes
  6. * ------------[ Created 05-02-1992 17:39:19 ]------------
  7. * REPLACING old line(s) by new
  8. 1895 IF TurboLogon THEN _
  9.         RETURN
  10. * ------[ first line different ]------
  11.   ZOutTxt$ = "Check for personal mail in " + ZConfName$ + " ([Y],N)" ' BSLMAIL1
  12.      GOSUB 12999                                                     
  13.      IF ZNo THEN _                                                   
  14.         SkipMain = ZTrue : _                                         
  15.         RETURN                                                       
  16.      ZUserIn$(0) = LEFT$("NEW ",-4*LogonMailNew)
  17. * REPLACING old line(s) by new
  18. 1950 IF NOT MailReported THEN _
  19.         ZOutTxt$ = "Sorry, " + _
  20.              ZFirstName$ + _
  21. * ------[ first line different ]------
  22.              ", No " + ZUserIn$(0) + "personal mail for you" : _     ' BSLMAIL1
  23.         GOSUB 12975
  24.      IF MsgsFromUser = 0 OR NOT ZMsgReminder THEN _
  25.         GOTO 1961
  26.      IF ActionFlag THEN _
  27.         GOTO 1961
  28.      ZOutTxt$ = "Mail you left"
  29.      GOSUB 12976
  30.